0 DIMK(255):NU$=CHR$(0):C1$=CHR$(143):C2$=CHR$(144) 1 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,32,33,34,21,36,37,38,39,40,41,42,43,44 2 DATA45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,192,65,66,67 3 DATA68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90 4 DATA219,156,221,222,146,100,193,194,195,196,197,198,199,200,201,202,203 5 DATA204,205,206,207,208,209,210,211,212,213,214,215,216,217,218,,,,,,,,,,, 6 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,32,148,,143,,132,129,225,153,142,154,223,248 7 DATA174,93,254,91,240,221,,3,35,219,176,241,179,,60,228,175,62,100,,193 8 DATA194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210 9 DATA211,212,213,214,215,216,217,218,,101,179,227,177,,,,,,,,,,,,,,,,,,,,,, 10 DATA,,,,,,,,, 11 FORI=.TO255:READK(I):NEXT 20 PRINT"[147]KONVERTER V1 TEXTOMAT PLUS -> DL-WRITER 22 [153]"BITTE DATEINAMEN EINGEBEN: 23 PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][185] 24 [133]"TEXTOMAT PLUS (null)CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";N1$ 25 [153]"RETURNBITTE JETZT NUR GROSSBUCHSTABEN! 26 INPUT"DL-WRITER ";N2$ 28 OPEN15,8,15 30 OPEN2,8,2,N1$+",P,R 32 [141]1000 40 [159]3,8,3,N2$[170]",P,W 42 GOSUB1000 44 BL=1:PRINT#3,C2$"B";:MU$="0 46 [153]" 50 GET#2,A$:A=ASC(A$+CHR$(0)):S=ST:POKE212,1:PRINTA$; 52 IFA=163THEN100 54 PRINT#3,CHR$(K(A)); 60 IFS=0THEN50 70 PRINT:PRINT:GOSUB3000:CLOSE3:CLOSE2:GOSUB1000:CLOSE15:PRINT"ALLES OK.":END 100 GET#2,A$ 102 IFA$="F"THEN200 104 IFA$="1"THENPRINT#3,C1$"C1";:KU=1:GOTO60 106 IFA$="2"THEN310 108 IFA$="3"THEN320 110 IFA$="4"THENPRINT#3,C1$"P1";:PR=1:GOTO60 112 IFA$="5"THENPRINT#3,C1$"T";:GOTO60 114 IFA$="6"THENPRINT#3,C1$"H";:GOTO60 116 IFA$="7"THENPRINT#3,C1$"S1";:SC=1:GOTO60 118 IFA$="8"THENPRINT#3,CHR$(22);:GOTO60 120 IFA$="9"THEN600 122 IFA$="L"THEN500 124 IFA$="R"THEN550 126 IFA$="D"THEN300 128 IFA$="C"THEN750 130 IFA$="[213]"THEN250 132 IFA$="B"THEN700 134 IFA$="E"THEN800 136 IFA$="A"THEN900 138 IFA$="U"THEN850 140 IFA$="O"THEN860 142 IFA$="0"THEN450 190 GOTO60 200 IFFETHENFE=0:PRINT#3,C1$"F0";:GOTO60 210 PRINT#3,C1$"F1";:FE=1:GOTO60 250 IFUNTHENUN=0:PRINT#3,C1$"U0";:GOTO60 252 PRINT#3,C1$"U1";:UN=1:GOTO60 300 GET#2,A$:IFA$="I"THEN304 302 PRINT#3,"TT.MM.JJ ";:GOTO60 304 GET#2,A$:GET#2,A$ 306 IFA$="0"THENPRINT#3,C1$"A036";:GOTO60 307 IFA$="2"THENPRINT#3,C1$"A030";:GOTO60 308 IFA$="5"THENPRINT#3,C1$"S1";:SC=1:GOTO60 309 GOTO60 310 PRINT#3,C1$"O"; 312 GET#2,A$:PRINT#3,A$; 314 GET#2,A$:IFA$="0"THEN60 316 PRINT#3,C1$"Q"A$;:GOTO60 320 PRINT#3,C1$"G"; 322 GET#2,A$:PRINT#3,A$; 324 GET#2,A$:IFA$<>"0"THENGET#2,A$:A$="9":GOTO328 326 GET#2,A$ 328 PRINT#3,A$;:GOTO60 330 GET#2,A$:GET#2,A$:GOTO320 350 X$="U":GOTO354 352 X$="F 354 [161]#2,Z1$:[161]#2,Z2$:[161]#2,Z3$:Z[178][181]((100[172][197](Z1$)[170]10[172][197](Z2$)[170][197](Z3$))[173]2) 356 [139]Z[179]1[167]60 358 [139]Z[179]100[167]370 360 Z[178]Z[171]99 362 [152]3,C2$X$"99";:[137]356 370 ZH[178][181](Z[173]10):ZL[178]Z[171]ZH[172]10 380 [152]3,C2$X$[199](48[170]ZH)[199](48[170]ZL);:[137]60 450 A[178]0:[139]FE[167][152]3,C1$"F0";:A[178]1 452 [139]KU[167]KU[178]0:[152]3,C1$"C0";:A[178]1 454 [139]PR[167]PR[178]0:[152]3,C1$"P0";:A[178]1 456 [139]UN[167][152]3,C1$"U0";:A[178]1 458 [139]SC[167]SC[178]0:[152]3,C1$"S0";:A[178]1 460 [139]OB[167]OB[178]0:[152]3,C1$"I0";:A[178]1 480 MU$[178]"0":[139]A[178]0[167][152]3,C1$"X"; 490 [137]60 500 [161]#2,A$:[139]A$[179][177]"R"[167]504 502 [152]3,C2$"L";:[137]60 504 [139]A$[179][177]"N"[167]60 506 [161]#2,A$:[161]#2,B$:E[178][197](A$)[172]10[170][197](B$):[139]E[178]0[167]60 508 [129]I[178]1[164]E:[152]3,[199](146);:[130]:[137]60 550 [161]#2,A$:[139]A$[179][177]"R"[167]60 552 [152]3,C2$"R";:[137]60 600 [161]#2,A$ 606 [139]A$[178]"CHR$"[167][152]3,C1$"D1";:[137]60 608 [139]A$[178]"LEFT$"[167][152]3,C1$"D0";:[137]60 610 [139]A$[178]"(null)"[167][152]3,C1$"B";:[137]60 612 [139]A$[178]"E"[167]650 614 [139]A$[178]"%"[167][161]#2,A$:[152]3,C1$"T";:[137]60 616 [139]A$[178]"U"[167]330 620 [152]3,C2$"H"A$;:[137]60 650 [161]#2,A$ 652 [139]A$[178]"LEFT$"[167][152]3,C1$"A";:[137]60 654 [139]A$[178]"O"[167][152]3,C1$"V";:[137]60 656 [139]A$[178]"RIGHT$"[167][161]#2,MU$:[137]60 658 [139]A$[178]"(null)"[167]690 660 [139]A$[178]"VAL"[167]950 662 [139]A$[178]"J"[167]350 664 [139]A$[178]"MID$"[167]352 680 [152]3,C2$"HE"A$;:[137]60 690 [161]#2,A$:[139]A$[178]"0"[167][152]3,C1$"M0";:[137]60 692 [152]3,C1$"M"MU$;:[137]60 700 [161]#2,A$:[139]A$[179][177]"L"[167]60 702 BL[178]1[171]BL:[139]BL[178]1[167][152]3,C2$"B";:[137]60 704 [139]CE[178]1[167][152]3,C2$"C";:[137]60 706 [152]3,C2$"X";:[137]60 750 CE[178]1[171]CE:[139]CE[178]1[167][152]3,C2$"C";:[137]60 754 [139]BL[178]1[167][152]3,C2$"B";:[137]60 756 [152]3,C2$"X";:[137]60 800 [161]#2,A$:[139]A$[179][177]"R"[167]60 802 [161]#2,A$:[161]#2,B$:E[178][197](A$)[172]10[170][197](B$):[139]E[178]0[167]60 804 [129]I[178]1[164]E:[152]3,[199](145);:[130]:[137]60 850 [152]3,C1$"I2";:OB[178]1:[137]60 860 [152]3,C1$"I1";:OB[178]1:[137]60 900 [161]#2,A$:[139]A$[179][177]"B"[167][161]#2,A$:[137]60 902 [161]#2,A$ 904 [139]A$[178]"1"[167][152]3,C2$"Z2";:[137]60 906 [139]A$[178]"2"[167][152]3,C2$"Z3";:[137]60 908 [139]A$[178]"3"[167][152]3,C2$"A36";:[137]60 910 [137]60 950 [161]#2,Z1$:[161]#2,Z2$:[161]#2,Z3$:Z[178]100[172][197](Z1$)[170]10[172][197](Z2$)[170][197](Z3$) 952 [139]Z[179]63[175]Z[177]0[175]Z[179][177]22[167][152]3,[199](Z);:[137]60 954 [139]Z[177]63[175]Z[179]96[167][152]3,[199](Z[170]128);:[137]60 956 [139]Z[178]262[167][152]3,[199](0);:[137]60 958 [139]Z[177]95[175]Z[179]127[167][152]3,[199](Z[171]32);:[137]60 960 [139]Z[178]127[167][152]3,[199](145);:[137]60 962 [139]Z[177]127[175]Z[179]143[175]Z[179][177]134[167][152]3,[199](Z);:[137]60 964 [139]Z[177]146[175]Z[179]192[175]Z[179][177]158[175]Z[179][177]165[175]Z[179][177]167[175]Z[179][177]166[167][152]3,[199](Z);:[137]60 966 [139]Z[178]290[167][152]3,[199](158);:[137]60 968 [139]Z[177]191[175]Z[179]224[167][152]3,[199](Z[171]96);:[137]60 970 [139]Z[177]223[175]Z[179]255[167][152]3,[199](Z);:[137]60 972 [139]Z[178]319[167][152]3,[199](255);:[137]60 974 [139]Z[178]267[167][152]3,[199](165);:[137]60 976 [139]Z[178]256[167][152]3,[199](166);:[137]60 978 [139]Z[178]257[167][152]3,[199](167);:[137]60 980 [152]3,C1$"Z"Z1$Z2$Z3$;:[137]60 1000 [132]15,F1,F1$,F2,F3:[139]F1[179]2[167][142] 1002 [153]"DISK-FEHLER NR."F1:[153]F1$:[153]"TR."F2" SE"F3:[128] 3000 [153]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO 3001 PRINT"HINWEIS: SOLLTE ES ZU STOERUNGEN BEIM " 3002 PRINT"DRUCK DES KONVERTIERTEN DOKUMENTS KOM- " 3004 PRINT"MEN (INSBESONDERE FALSCHER HORIZONTALER" 3006 PRINT"ZEICHENABSTAND, KANN ES HELFEN, DAS " 3008 PRINT"BLOCKSATZ-STEUERZEICHEM AM TEXTANFANG " 3010 PRINT"ZU LOESCHEN ODER GEGEN DEN CODE FUER " 3012 PRINT"'WORDWRAP AUS' ZU ERSETZEN. ":RETURN